# Coloured Petri Net (CPN): Output Arc Class
# Release: Development
#
# Copyright (c) 2002 Torvald Riegel. All rights reserved. This program is
# free software; you can redistribute it and/or modify it under the same
# terms as Perl itself.
#
# Copyright (c) 2011 Brent R. Scott. All rights reserved. This program has
# been modified from the original release and is free software. You can 
# redistribute it and/or modify it under the same terms as Perl itself.

package CPN::Transition::ArcOut;

use strict;
use Carp;

sub new {
	my $type = shift;
    my %params = @_;
    return bless {
                  expr => $params{'expr'},
                  place => $params{'place'},
                  transition => $params{'transition'},
                 }, $type;
}

sub setExpr {
    my ($self, $expr) = @_;
    $self->{expr} = $expr;
}
sub setPlace {
	my ($self, $place) = @_;
	$self->{place} = $place;
}
sub setTransition {
	my ($self, $transition) = @_;
	$self->{transition} = $transition;
}

1;